home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aak.d64 / puer nobis (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  771b  |  27 lines
  1. 1 IFSW=1GOTO3
  2. 2 SW=1:LOAD"E/F PN SM",8,1
  3. 3 L=2:H=157
  4. 4 POKE55,L:POKE56,H:POKE598,76:POKE599,L:POKE600,H:CLR
  5. 5 LC=646:POKE53272,21
  6. 10 POKE53281,1:POKELC,2:PRINT"[147]":PRINT"PUER NOBIS NASCITUR (CANON)
  7. 15 [151]LC,3:[153][163]10)"PUER NOBIS NASCITUR
  8. 16 POKELC,4:PRINTTAB(10)"RECTOR ANGELORUM.
  9. 17 [151]LC,5:[153][163]10)"IN HOC MUNDO PASCITUR
  10. 18 POKELC,6:PRINTTAB(10)"DOMINUS DOMINORUM.
  11. 20 [158]598
  12. 21 [139][194](788)[179][177]49[167]21
  13. 22 [129]AA[178]1[164]2000:[130]
  14. 30 [151]53272,23:[153]"LOAD":[153][163]15)"(null)EPEAT - (null)
  15. 35 PRINT"[212]O [211]EE A [208]ICTURE OF THE [200]OLY [198]AMILY
  16. 40 [153][163]16)"(null)RESS (null)
  17. 45 PRINT"([193]FTER VIEWING: [193]NY KEY TO CLR SCREEN)
  18. 50 [153][163]11)"(null)O QUIT    -    (null)WAIT
  19. 60 POKE198,0
  20. 70 GETA$:IFA$=""THEN70
  21. 80 IFA$="Q"THENEND
  22. 90 IFA$="P"THEN110
  23. 95 IFA$="R"THEN5
  24. 100 IFA$<>"Q"ORA$<>"P"ORA$<>"R"THEN70
  25. 110 POKE53281,1:POKE646,1:PRINT"[147]";:PRINT"LOAD"CHR$(34)"E/PCLD"CHR$(34)",8
  26. 120 [153]"RUN":[151]198,3:[151]631,19:[151]632,13:[151]633,13
  27.